<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body>


 <%

Set Conn = Server.CreateObject("ADODB.Connection")


Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=wdb1003.chi.us.securedata.net;UID=dbcalidda;PWD=c4lidd4;DATABASE=dbcalidda"


'sSQL="Select * From puntos where punto='gate' order by fecha desc"
'////////////////////////////////
com="Select * From Rep_operativo order by fecha desc,codigo desc"

set RScom = Conn.Execute(com)


'//////////////////////////////////////

ini="Select * From Rep_operativo order by fecha desc,codigo desc"'agarra la ultima fecha
set RSx = Conn.Execute(ini)

if RSx.eof = true Then 
response.write("No se encontraron datos a actualizar con esta fecha</br></br>")
response.write("<a href=preingreso.asp>regresar</a>")
 else


nombre=RSx("nombre")
fecha=RSx("fecha")

fecha=RSx("fecha")
d=Day(fecha)
m=Month(fecha)
a=Year(fecha)




end if

%>
                                      <p>&nbsp;</p>
                                      <p> <a href="http://www.calidda.com.pe/pdf/<%=nombre%>">Reporte Operativo al <%=d%>-<%=m%>-<%=a%></a> </p>
                                      </p>
                                      </span>
                                        <form action="" method="post" >
                                          <span class="Texto_Normal_Calidda">Reportes hist&oacute;ricos al</span>
                                          <select name="elegir" class="Texto_Normal_Calidda" onChange="javascript:Redireccionar()">
                                            <option value="http://www.calidda.com.pe/reporte_operativo.asp">Seleccionar</option>
                                            <%while (not RScom.eof)%>
                                            <%fec=RScom("fecha")%>
                                            <option value="http://www.calidda.com.pe/pdf/<%=RScom("nombre")%>"><%=Day(fec)%>/<%=Month(fec)%>/<%=Year(fec)%></option>
                                            <%
  RScom.movenext
wend
%>
                                          </select>
                                        </form>
                                      <%Conn.Close 
   set Conn = nothing%>


</body>
</html>
